﻿''' <summary>
''' Erstellt ein Schwarzes Boot
''' </summary>
''' <remarks></remarks>
Public Class Schwarze_Boot
    Inherits ObjektEinheit
    Public Sub New(ByVal neuSpieler As Integer, ByVal neuX As Integer, ByVal neuY As Integer, Optional ByVal HatSichBewegt As Boolean = True)
        MyBase.New(neuSpieler, neuX, neuY, HatSichBewegt)
    End Sub
    Public Sub New(ByVal neuKP As Integer, ByVal neuTreibstoff As Integer, ByVal neuMunition As Integer, ByVal neuSpieler As Integer, ByVal neuBesetzen As Boolean, ByVal neuX As Integer, ByVal neuY As Integer, ByVal Tarnung As Boolean, Optional ByVal HatSichbeWegt As Boolean = True)
        MyBase.New(neuKP, neuTreibstoff, neuMunition, neuSpieler, neuX, neuY, neuBesetzen, HatSichbeWegt, Tarnung)
    End Sub
    Public Sub New(ByVal neuKP As Integer, ByVal neuSpieler As Integer, ByVal neuX As Integer, ByVal neuY As Integer, Optional ByVal HatSichbeWegt As Boolean = True)
        MyBase.New(neuKP, neuSpieler, neuX, neuY, HatSichbeWegt)
    End Sub
    Protected Overrides Sub Datenladen()
        If DataSettings.CommanderWarsGameModus <= CommanderWarsGameModi.AdvanceWarsDS Then
            Einheitenname = "Schwarze Boot"
            EinheitenID = "S-BOOT"
            SpritMax = 70
            KannTarnen = False
            KannBesetzen = False
            Treibeverbrauch = 1
            Koste = 7500
            Faehigkeit = "Reparieren"
            Treibstoff = SpritMax
            Bewegungspunkte = 7
            Bewegungsart = MovementSorts.Transport.ToString
            Sicht = 1
            MunitionMax = -1
            Munition = MunitionMax
            Waffe1 = "Keine"
            Waffe2 = "Keine"
            Array.Resize(Ladung, 2)
            GeladeneEinheitenIDs = New String() {"INF", MovementSorts.Mech.ToString.ToUpper, "SSIEINHEIT"}
            EntladungsUntergrund = New String() {"STRAND", "WERFT"}
            MinimaleReichweite = 0
            MaximaleReichweite = 0
            BildIDbestimmen()
            Explosion = "Wasser"
        Else
            Einheitenname = "Schwarze Boot"
            EinheitenID = "S-BOOT"
            SpritMax = 70
            KannTarnen = False
            KannBesetzen = False
            Treibeverbrauch = 1
            Koste = 7500
            Faehigkeit = "Reparieren"
            Treibstoff = SpritMax
            Bewegungspunkte = 7
            Bewegungsart = MovementSorts.Transport.ToString
            Sicht = 1
            MunitionMax = -1
            Munition = MunitionMax
            Waffe1 = "Keine"
            Waffe2 = "Keine"
            Array.Resize(Ladung, 2)
            GeladeneEinheitenIDs = New String() {"INF", MovementSorts.Mech.ToString.ToUpper, "SSIEINHEIT"}
            EntladungsUntergrund = New String() {"STRAND", "WERFT"}
            MinimaleReichweite = 0
            MaximaleReichweite = 0
            BildIDbestimmen()
            Explosion = "Wasser"
        End If
    End Sub
End Class
